home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / Programming / Basic_Routines / BasicSubs / demos / Shadowboxes.demo (.txt) < prev    next >
AmigaBASIC Source Code  |  1992-03-30  |  3KB  |  121 lines
  1. SCREEN 1,640,250,4,2
  2. WINDOW 2,"                            SHADOWBOXES DEMO",,0,1
  3. GOSUB LOADCOLOURS
  4. GOSUB SCREENSETUP
  5. GOSUB WAITFOREND
  6. SYSTEM
  7.  
  8. WAITFOREND:
  9.   xs =195:xe=424:ys=179:ye=195:fillcol=12:olcol=2:GOSUB RAISED
  10.   LOCATE 24,27: COLOR 5,fillcol:PRINT "Press any key to exit demo"
  11.   A$=""
  12.   WHILE A$= ""
  13.     A$ = INKEY$
  14.   WEND
  15.   RETURN
  16.              
  17. LOADCOLOURS:
  18.   OPEN "BasicUtils&Subs:SetupFiles/Colours" FOR INPUT AS #1
  19.   FOR i = 0 TO 15
  20.   INPUT #1,A,b,c,c$
  21.   PALETTE i,A,b,c
  22.   NEXT i
  23.   CLOSE
  24.   RETURN
  25.   
  26. SCREENSETUP:
  27.   xs=3:ys=3:xe=627:ye=234:olcol=4:fillcol=0:GOSUB RAISED
  28.   xs=59:ys=19:xe=139:ye=35:bgcol=2:fillcol=6:GOSUB THREE.D
  29.   COLOR 0,fillcol
  30.   LOCATE 4,10:PRINT  "Three-D"
  31.   xs=59:xe=139:ys=51:ye=67:fillcol=7:GOSUB OUTLINE
  32.   COLOR 0,fillcol
  33.   LOCATE 8,10:PRINT  "Outline"
  34.   xs=59:xe=123:ys=83:ye=99:fillcol=8:GOSUB BEVEL
  35.   COLOR 0,fillcol
  36.   LOCATE 12,10:PRINT  "Bevel"
  37.   xs=59:xe=131:ys=115:ye=131:fillcol=12:GOSUB RAISED
  38.   COLOR 0,fillcol
  39.   LOCATE 16,10:PRINT  "Raised"
  40.   xs=379:xe=451:fillcol=9:ys=19:ye=35:GOSUB DOUBLE
  41.   COLOR 0,fillcol
  42.   LOCATE 4,50:PRINT  "Double"
  43.   xs=379:xe=451:ys=51:ye=67:fillcol=11:GOSUB SHADOW
  44.   COLOR 0,fillcol
  45.   LOCATE 8,50:PRINT  "Shadow"
  46.   xs =415:ys=107:r=32:fillcol=10:GOSUB BUTTON
  47.   COLOR 0,fillcol
  48.   LOCATE 14,50:PRINT  "Button"
  49.   RETURN
  50.   
  51. RAISED:
  52.   COLOR olcol
  53.   LINE (xs,ys)-(xe,ye),,b
  54.   LINE (xs-4,ys-2)-(xe+4,ye+2),,b
  55.   LINE (xs-2,ys-1)-(xe+2,ye+1),,b
  56.   GOSUB FILLBOX
  57.   RETURN
  58.   
  59. FILLBOX:
  60.   COLOR fillcol
  61.   LINE (xs+1,ys+1)-(xe-1,ye-1),,b
  62.   PAINT ((xs+xe)/2,(ys+ye)/2)
  63.   RETURN
  64.  
  65. OUTLINE:
  66.   LINE (xs,ys)-(xe,ye),olcol,b
  67.   GOSUB FILLBOX
  68.   RETURN
  69.   
  70. THREE.D:
  71.   COLOR bgcol
  72.   LINE (xe+2,ys+1)-(xe+2,ye+1):LINE - (xs+2,ye+1)
  73.   LINE (xe+4,ys+2)-(xe+4,ye+2):LINE - (xs+4,ye+2)
  74.   COLOR olcol
  75.   LINE (xs,ys)-(xe,ye),,b
  76.   LINE (xe,ys)-(xe+6,ys+3):LINE - (xe+6,ye+3):LINE -(xe,ye)
  77.   LINE (xe+6,ye+3)-(xs+6,ye+3):LINE - (xs,ye)
  78.   GOSUB FILLBOX
  79.   RETURN
  80.   
  81. BEVEL:
  82.   COLOR bgcol
  83.   LINE (xe,ys)-(xe,ye):LINE - (xs,ye):LINE - (xs-4,ye+2)
  84.   LINE - (xe+4,ye+2):LINE - (xe+4,ys-2):LINE -(xe,ys)
  85.   LINE (xs-2,ye+1)-(xe+2,ye+1):LINE - (xe+2,ys-1)
  86.   COLOR olcol
  87.   LINE (xs,ye)-(xs,ys):LINE - (xe,ys):LINE - (xe+4,ys-2)
  88.   LINE -(xs-4,ys-2):LINE - (xs-4,ye+2):LINE - (xs,ye)
  89.   LINE (xs-2,ye+1)-(xs-2,ys-1):LINE -(xe+2,ys-1)
  90.   GOSUB FILLBOX
  91.   RETURN
  92.   
  93. DOUBLE:
  94.   COLOR olcol
  95.   LINE (xs,ys)-(xe,ye),,b
  96.   LINE (xs-4,ys-2)-(xe+4,ye+2),,b
  97.   GOSUB FILLBOX
  98.   RETURN
  99.   
  100. SHADOW:
  101.   COLOR bgcol
  102.   LINE (xe+2,ys+1)-(xe+2,ye+1):LINE - (xs+2,ye+1)
  103.   LINE (xe+4,ys+2)-(xe+4,ye+2):LINE - (xs+4,ye+2)
  104.   COLOR olcol
  105.   LINE (xs,ys)-(xe,ye),,b
  106.   GOSUB FILLBOX
  107.   RETURN
  108.   
  109. BUTTON:
  110.   COLOR olcol
  111.   CIRCLE (xs,ys),r,,,,0.52
  112.   CIRCLE (xs,ys),r+1,,,,0.52
  113.   CIRCLE (xs,ys),r+2,,,,0.52
  114.   COLOR fillcol
  115.   CIRCLE (xs,ys),r-1,,,,0.52
  116.   PAINT (xs,ys)
  117.   RETURN
  118.   
  119.     
  120.  
  121.